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KBL 5*20 - 292 



TITLE; 
TXPK: 
ACCURACY: 
SYKBOIB: 



CAPlCPCBU 



SESORtFrXQII: 



METHOD OF USE: 



Matrix Addition or Subtraction 

Entire Program 

IX Decimal Places 

d - decimal |)laces input or output 

n - number of B matrices 

s •^ scaling integer 

1 - number of rovs for A and'B matrices 

^ - number of columns for A and B matrievB 

i(j + 1) < 10,240 

d < 12 

n is not limited 

+ s < 12 

Tills routine vill form the sum, 



A + {B^ + Bg + .0. 

or the difference. 



) -c. 



) s C. If n « 1, this reduces to 



A + B « C. 

The A and B matrices can be rescaled by any integer power of 10, 
+ s, during input. This can be used to prevent overflow of the 
elements of C. 

Stops 

1. Master t^pfe 3^22 

2. Parameter tape 2^^038 

3. Data tape A 3^057 
Ua. Data tape B^ 2k031 
J*b, Data tape Bg 2^^057 



oaogo***«ooo 



OFOOO 



4n» Data tape B 
n 

To begin a new problem at stop OF, move the white switch up and 
downo The coii5)uter will then stop on 2^022. Raise the black 
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THE BIVRAMETER T4FE: 



switch to read a new parameter tape| move the white switch 

up and down to retain the old parameters. 

The parameter tape consists of three signed integers terminated 

by an N. These are in the following orders 

+ d + n + sN 

d is the number of decimal places in the output. 

n is the number of B matrices. A positive sign indicates 

addition. A negative sign indicates subtraction. 

s is the scaling integer. The A and B matrices are multiplied 

by 10- during input. If no rescaling is desired (s = O), 

this parameter may be omitted o 

If both n and s are omitted, two matrices, A + B, will be 

added without rescaling. 



MMmiBS\ 



Parameters Operations 

+^ N The routine will form the sum C = A + B, 

and print C to 4 places. 

+^ -IN The routine will form the difference, 

G = A - B, and print to k places. 

+4 -^3 -2 H The routine will form the difference, 

C = A - (B^ + Bg + B^), and C will be 

printed to k places and be rescaled by 

10*^. 

PREPABATION OF A AND B DATA TAPES: 

The elements of A and B matrices are punched by rows as 

signed fractions with an N after each row and a J after the 

final N. 

If instead of an N, an F is punched at the end of a row, the 

computer will stop. By raising the black switch, reading of 

the matrix is resimied. 

The A and B matrices must conform| otherwise, the computer 

will stop (See section on Stops and Error Diagnosis). 

DURATION IN SECONDS? «005 n(cJ + 2) i J + .01? (d + l) i j 

Add 20 seconds for reading the master tape. 
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STOPS AND ERROR DIAGNOSIS: 



STOPS LOG 

3iM3ee 136 

2i»03N 03s 

54057 052 

20055 055 

2ko6i q6o 

24057 073 

OFOOO 074 

24022 074 

FFOOO 046 

FFOOl 056 

FF002 065 

FFOO3 071 

FPP04 137 



DIAGNOSIS 
Master tape read correctlyi BX* sv. to read paraneter tape. 
Etad of parameter tape| Bl*sv« to read A natrlx. 
Bad of tape A^ Bl. sv. to read B matrix. 
F or L termination! Bl. sw. to continue. 
F or L termination! Blc sw, to continue* 

End of intermediate calculation! Bl. sw. to read another B matrix o 
Stop, end of calculation; Wh. sw. to next order^ 

Bi. swo to read new parameter tape; Wiu sw. to retain old paramaters 
Elements of A vector overflows into B vector; vh, sw. to read 
another row of A. 
Number of elements of rows of A not equal; wh. sw. to read new 

Numkjer of elements of columns of A and B not equal; wh. sw, to 

read new B matrix. 

Nuniber of elements of rows of A and B not equal; who sw. to read 

new B matrix. 

Master tape sum check failure; clear and input master again. 
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M&u 


BSL. 


SYM. 


00 3K 
















3 






OOF OO313F 


Location of A vector 






k 






OOF OO55OF 


Location of B vector 






5 






OOF OO787P 
00 i6k 


Location of C vector 






16 




(A) 
(B) 
(Dl) 

(D3) 

(Dl^) 

(N) 

(Nl) 

(+) 

(-) 
(OPl) 

(0P2) 

(1) 

(70) 

(1-1) 

(SI) 

(VI) 

(V2) 


00S3 00S3 

OOSil- OOSli- 

jas3 50l(RD) 

26(Y1) OO256OF 

5063 50l(WR) 

J0S5 50l(RD) 

i^0S3 L52l(N12) 

kCSk L52l(N12) 

OOF 006250000000000' 

OOF OOIOOOOOOOOOOOJ 

LOBk kCB3 

iMsk lfOS5 

OOF OOIF 

OOF OO7OF 

OOIF OOIF 

75F i^OF 

OOF 00S3 

OOF 008^4- 

OOK 


Read parameters 






3^^ 



1 
2 

3 

k 

5 
6 

7 

8 

9 


(P) 


L5(0P2) hOk{A2) 
kl6F kl-JF 
525F 502L 
26(N12) L55F 
0020F U65(PR) 
klQF 508F 
F55F OO7F 
i^OF L5(70) 
66F S5F 
IO32F l^OiiF 


Read parameters "d", "n" and "s". 
Calculate No. of KT.TS/LINE 






■ 


10 




L56F 3612L 
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11 




L5(0P1) 404(A2) 






12 




L37F 3225L 






15 




L57F 3218L 






14 
15 




409F L5(-) 
: 401?F F59F 


Negative scaling njiatiplier at Loc. 12 




16 




409F 3225L 






17 




5012F 7J(-) 






18 




2615L 508f 






19 


L57F 0022F 






20 


464 (S) L17F 






21 
22 




409F L5(+) 
4012F F59F 


Positive scaling multiplier at Loc. 12 




23 




409F 3225L 






24 




5012F 7J(+) 






25 




2622L 2426L 






26 




L36f 4010F 
OOK 


Set counter for No. of additions/sub. 


61 



1 


(Al) 


L5(D1) 401 (RD) 
L5(D2) 402(RD) 


Initialize addresses for drum transfer 




2 
3 




50S3 502L 
26(N12) L521(N12) 


Read first row of A 




4 




405F LO(n) 






5 




463 (RD) 1020F 






6 




403F 4113F 






8 




F5(V2) L0(V1) 
L03F 36IOL 


TESTS Does ELIIB. of A Vector overflow into 
location of B vector? 




9 
10 




FFJ?' 26 (Al) 
L37F 3214l 


FFO: Vector overflow; Wh. sw. to read 
another row of A. 




11 
12 


■ 


L5(A) L4(S1) 
4010 (S ) 423 (S) 


Set addresses for scaling row of A. 




13 
14 

15 




424 (S) 5013L 
26 (S) 5014L 
26 (RD) L52(RD) 


Scale row of A. 

Store row of A on drum. 




16 




f43F 402(RD) 






17 




F513F 4013F 






18 




50S3 5018L 

■ 


Read a row of A. 
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1 


ABS. 


BEL. 


sm 


• 

26(N12) iK)4F 




_ 




19 








20 




L54f 3222L 


, 






21 




L4(l) 54(B1) 








22 


2022L L521(N12) 








25 


L05F 40F 








2k 




L3F 36IOL 


TKSTs Are ELTS. of rows equal? 






25 




FFIF 26(Ai) 
OOK 


h'FU ELTS. unequali Wh. sw. to read 
another A nwtrix. 




87 





(Bl) 


F510F 4010F 








1 




4ii4f L5(D3) 


Initialize addresses for drum transfer. 






2 




401 (WR) L5(D2) 








5 




402(WR) L53F 








4 




0020F 463 (WR) 








5 




L5(d4) 4oi(rd) 








6 




L5(D2) 402 (RD) 








7 




26 (B2) L34f 








8 


361OL l4(i) 








9 




3624L 2410L 








10 




F514f 4014f 








11 




L521(N12) LO(Nl) 


TESTg are ELTS. of rows of A and B - ? 






12 




1020F L03F 








13 




40F L3F 








14 
15 




32I5L J?'Jf2F 
261 (Bl) 5015L 


Fif2s ELTS. unequal^Wh. sw. to read new B. 






16 

17 
18 




26 (WR) F53F 
L42(WR) 402(WR) 
26 (A2) L5IOF 








19 




3222L 5OI9L 


Store a row of C on drum. 






20 




26(rd) F53F 








21 




L42(RD) 402(RD) 








22 




267L 5022L 


Print one row of Co 






23 




26 (PR) 267L 








2k 




L513F L014f 


TESTS are ELTS. of columns of A and B ? 






25 


i 


40F L3F 








a6 




3227L J?'F3F 


FF3: ELTS. unequal! Wh. sw. to read new B. 




27 


261 (Bl) L510F 
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118 



128 



135 



RELc 



I ■ ■■ 



28 

29 
50 



1 
2 

3 

k 

5 
6 

7 
8 

9 


1 
2 

3 
If 

5 
6 


1 
2 
3 

5 
6 

7 
8 

9 
10 



SYM, 



(A2) 



(B2) 



(S) 



3629L 2i<-(Bl) 
OFF 24 (P) 
2626 (P) OOF 

OOK 

L5(0P2) k6kL 
424l L5(A) 
423L 4l9F 
223L L5S3 
l4s4 4oS5 
F53L 425L 
L5iH lA(l-l) 
40i|-L F59F 
409F L03F 
3218 (Bl) 22 3L 

OOK 

50S4 50L 
26(N12) 404f 
L37F 326L 
L5(b) L4(S1) 
4010 (S) 425(3) 
424 (S) 505L 
26(S) 227(B1) 

OOK 

K5F 428L 
L13F 409F 
LITF 529L 
5012F 75F 
OOF 40F 
F53L 405L 
F54l 404l 
F59F 328L 
221L 22F 
5OF 5012F 
75F 40F 
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Stop on 24057| Bl. sw. to read next B. 

Stop on 0F| Wh. sw. to a stop 24022| 

Bl. sw. to read new parameter tape or 
Wh. sw. to retain old parameters. 



Form addition/subtraction on corresponding 
ELTS. of A and B. 



Read a row of B 



Set addresses for scaling a row of B. 



Scale ELTS. of a row of B. 



Scale with a positive mxiltiplier 



Scale with a negative scaling multiplier. 
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ABS. 


Bl£;« 


SYM. 


L510L Li^d-l) 






11 






12 




i<-010L 267L 
OOK 




11^8 





(m) 


K5F i^2l8L 






1 




L5(0Pl) 424l 


Set addresses and counters for printing a 




2 




F58F 408F 


row of C. 




3 




223L i^l9F 






k 




i4-115F L5F 






5 




5OF 5O5L 


Print one ELT. of C. 




6 




26(Pl6) F^kL 






7 




424L F59F 






8 




i<-29F L03F 






9 




5215L F515F 






10 




4215F LOllF 






11 




5612L 22ifL 






12 




9215IF 925I5F 


Punch line feed/ carriage return and delay. 




13 




26kL 9277OF 


Print No 




14 




L58F L015F 






15 




5616L 2217L 






16 




9285i^F i^l8F 


Print Jo 




17 




92147F 92I5IF 


6 carriage retxirns and line feeds 




18 




92515F 22F 
OOK 


delay . 


167 





(RD) 


K5F 425L 
JOF 5OIL 
26(Y1) OOF 
OOF 22F 

OOK 


Store a row of A or C on drum . 


171 





(WR) 


K5F 425L 
5OF 5OIL 
26 (Yl) OOF 
OOF 22F 


Place a row of A or C in WM., from drum. 


175 




(PI6) 


OOK 


Print routine (Pl6) 
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ABS. 



231 
270 

310 



RIL. 



NOTES 



SYM. 



(N12) 
(Yl) 
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OOK 
OOK 

OOK 

L3F 3^(P) 
WkF 26(P) 
LI868F kSTISF 

26L 26m 



KSL 5.20 



Input routine (n12) 

Drum transfer routine (yi) 



FJ^: Read failure on master tape. 



